2200 REM INVENTUR ROUTINE
2205 IFVE<>22THEN2300
2210 PRINT"ICH HABE: ";
2220 IC=0:FORI=1TOGZ:IFGE(I)=-1THENPRINTGE$(I)",";:IC=1
2225 NEXT
2230 IFIC=0THENPRINT"NICHTS."
2235 IFIC=1THENPRINT"[157] "
2300 GOTO1000